home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / batch / rtutils.lha / rtutils / rtUtilsDemoScript.pl < prev   
Text File  |  1989-08-03  |  1KB  |  40 lines
  1. failat 21
  2. resident rtEZReq pure
  3. resident rtGetString pure
  4. set DD 1
  5. set rtgstext `rtGetString TITLE="Podaj dowolny tekst" DEF="" ALLOWEMPTY`
  6. set ezreq1 `rtEZReq "Wpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
  7. if "$ezreq1" EQ "1"
  8.    rtEZReq >NIL: "Widzisz, jakie to proste" "_Widzë"
  9.    skip show_idcmp
  10. EndIf
  11. Lab repeatit1
  12. set ezreq1 `rtEZReq "Powtórzë ponownie!!!*NWpisaîeô(aô): *"$rtgstext*"*NZgadza sië?" "_Tak|_Nie"`
  13. If "$ezreq1" NOT EQ "1"
  14.    Skip repeatit1 BACK
  15. EndIf
  16. Lab show_idcmp
  17. set ezreq2 `rtEZReq "Wyciâgnij dyskietkë lub kliknij na OKEJ" "_Okej" DISKREMOVED`
  18. if "$ezreq2" NOT EQ "-1"
  19.    set ezreq3 `rtEZReq "Szkoda, nie masz stacji dysków" "_Aleû Mam!|_Nie mam"`
  20.    If "$ezreq3" EQ "1"
  21.       Skip show_idcmp BACK
  22.    EndIf
  23.    set DD 0
  24.    rtEZReq >NIL: "Przykro mi!" "_Wiem"
  25. EndIf
  26.  
  27. If "$DD" EQ "1"
  28.    rtEZReq >NIL: "Wîóû dyskietkë z powrotem*N(lub dowolnâ innâ dyskietkë)" DISKINSERTED
  29. EndIf
  30. rtEZReq >NIL: "I to by byîo na tyle!*NWciônij dowolny klawisz" VKEY
  31.  
  32. Lab Cleanup ; koniec
  33. resident rtEZReq REMOVE
  34. resident rtGetString REMOVE
  35. unset DD
  36. unset ezreq1
  37. unset ezreq2
  38. unset ezreq3
  39. unset RTGSTEXT
  40.